home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
hobbies_
/
32psst10.zip
/
_SETUP.1
/
STO32S.EXE
/
0
/
RCDATA
/
TFORM2
/
TFORM2.txt
Wrap
Text File
|
1996-09-30
|
85KB
|
2,981 lines
object Form2: TForm2
Left = 17
Top = 50
Hint = 'Use Right Mouse Button To Display Popup Menus'
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'PrimaSoft'
ClientHeight = 445
ClientWidth = 587
Color = clBlue
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
PixelsPerInch = 96
ShowHint = True
OnClose = FormClose
OnKeyDown = FormKeyDown
TextHeight = 16
object Panel4: TPanel
Left = 9
Top = 391
Width = 567
Height = 34
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object Panel5: TPanel
Left = 280
Top = 0
Width = 24
Height = 390
Caption = 'Panel5'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
object A_Btn: TColorButton
Left = 0
Top = 0
Width = 24
Height = 15
Hint = 'Jump to Page beginning with A'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'A'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 0
OnClick = A_BtnClick
end
object B_Btn: TColorButton
Left = 0
Top = 15
Width = 24
Height = 15
Hint = 'Jump to Page beginning with B'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'B'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 1
OnClick = A_BtnClick
end
object C_Btn: TColorButton
Left = 0
Top = 30
Width = 24
Height = 15
Hint = 'Jump to Page beginning with C'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'C'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 2
OnClick = A_BtnClick
end
object D_Btn: TColorButton
Left = 0
Top = 45
Width = 24
Height = 15
Hint = 'Jump to Page beginning with D'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'D'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 3
OnClick = A_BtnClick
end
object E_Btn: TColorButton
Left = 0
Top = 60
Width = 24
Height = 15
Hint = 'Jump to Page beginning with E'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'E'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 4
OnClick = A_BtnClick
end
object F_Btn: TColorButton
Left = 0
Top = 75
Width = 24
Height = 15
Hint = 'Jump to Page beginning with F'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'F'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 5
OnClick = A_BtnClick
end
object G_Btn: TColorButton
Left = 0
Top = 90
Width = 24
Height = 15
Hint = 'Jump to Page beginning with G'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'G'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 6
OnClick = A_BtnClick
end
object H_Btn: TColorButton
Left = 0
Top = 105
Width = 24
Height = 15
Hint = 'Jump to Page beginning with H'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'H'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 7
OnClick = A_BtnClick
end
object I_Btn: TColorButton
Left = 0
Top = 120
Width = 24
Height = 15
Hint = 'Jump to Page beginning with I'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'I'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 8
OnClick = A_BtnClick
end
object J_Btn: TColorButton
Left = 0
Top = 135
Width = 24
Height = 15
Hint = 'Jump to Page beginning with J'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'J'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 9
OnClick = A_BtnClick
end
object K_Btn: TColorButton
Left = 0
Top = 150
Width = 24
Height = 15
Hint = 'Jump to Page beginning with K'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'K'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 10
OnClick = A_BtnClick
end
object L_Btn: TColorButton
Left = 0
Top = 165
Width = 24
Height = 15
Hint = 'Jump to Page beginning with L'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'L'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 11
OnClick = A_BtnClick
end
object M_Btn: TColorButton
Left = 0
Top = 180
Width = 24
Height = 15
Hint = 'Jump to Page beginning with M'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'M'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 12
OnClick = A_BtnClick
end
object N_Btn: TColorButton
Left = 0
Top = 195
Width = 24
Height = 15
Hint = 'Jump to Page beginning with N'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'N'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 13
OnClick = A_BtnClick
end
object O_Btn: TColorButton
Left = 0
Top = 210
Width = 24
Height = 15
Hint = 'Jump to Page beginning with O'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'O'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 14
OnClick = A_BtnClick
end
object P_Btn: TColorButton
Left = 0
Top = 225
Width = 24
Height = 15
Hint = 'Jump to Page beginning with P'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'P'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 15
OnClick = A_BtnClick
end
object Q_Btn: TColorButton
Left = 0
Top = 240
Width = 24
Height = 15
Hint = 'Jump to Page beginning with Q'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'Q'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 16
OnClick = A_BtnClick
end
object R_Btn: TColorButton
Left = 0
Top = 255
Width = 24
Height = 15
Hint = 'Jump to Page beginning with R'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'R'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 17
OnClick = A_BtnClick
end
object S_Btn: TColorButton
Left = 0
Top = 270
Width = 24
Height = 15
Hint = 'Jump to Page beginning with S'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'S'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 18
OnClick = A_BtnClick
end
object T_Btn: TColorButton
Left = 0
Top = 285
Width = 24
Height = 15
Hint = 'Jump to Page beginning with T'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'T'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 19
OnClick = A_BtnClick
end
object U_Btn: TColorButton
Left = 0
Top = 300
Width = 24
Height = 15
Hint = 'Jump to Page beginning with U'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'U'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 20
OnClick = A_BtnClick
end
object V_Btn: TColorButton
Left = 0
Top = 315
Width = 24
Height = 15
Hint = 'Jump to Page beginning with V'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'V'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 21
OnClick = A_BtnClick
end
object W_Btn: TColorButton
Left = 0
Top = 330
Width = 24
Height = 15
Hint = 'Jump to Page beginning with W'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'W'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 22
OnClick = A_BtnClick
end
object X_Btn: TColorButton
Left = 0
Top = 345
Width = 24
Height = 15
Hint = 'Jump to Page beginning with X'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'X'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 23
OnClick = A_BtnClick
end
object Y_Btn: TColorButton
Left = 0
Top = 360
Width = 24
Height = 15
Hint = 'Jump to Page beginning with Y'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'Y'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 24
OnClick = A_BtnClick
end
object Z_Btn: TColorButton
Left = 0
Top = 375
Width = 24
Height = 15
Hint = 'Jump to Page beginning with Z'
BgndColor = clBtnFace
SelBgndColor = clSilver
Caption = 'Z'
ParentShowHint = False
ShowHint = True
StayDown = True
TabOrder = 25
OnClick = A_BtnClick
end
end
object PgLeft: TPanel
Left = 8
Top = 0
Width = 272
Height = 390
BevelOuter = bvNone
Color = clSilver
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 0
object Notebook1: TNotebook
Left = 0
Top = 14
Width = 272
Height = 326
Align = alClient
TabOrder = 0
object TPage
Left = 0
Top = 0
Caption = 'Page 1'
object PgL1: TPanel
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Ctl3D = True
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 0
object Label1: TLabel
Tag = 1
Left = 6
Top = 6
Width = 90
Height = 14
Caption = 'Stamp Description:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Tag = 2
Left = 6
Top = 59
Width = 41
Height = 14
Caption = 'Country:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Tag = 3
Left = 6
Top = 93
Width = 54
Height = 14
Caption = 'Short Note:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Tag = 4
Left = 6
Top = 115
Width = 48
Height = 14
Caption = 'Catalog #:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Tag = 5
Left = 126
Top = 115
Width = 47
Height = 14
Caption = 'Condition:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Tag = 6
Left = 6
Top = 155
Width = 60
Height = 14
Caption = 'Date Issued:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Tag = 7
Left = 6
Top = 195
Width = 58
Height = 15
Caption = 'Face Value:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Tag = 8
Left = 6
Top = 235
Width = 25
Height = 14
Caption = 'Cost:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Tag = 9
Left = 6
Top = 275
Width = 66
Height = 14
Caption = 'Market Value:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Tag = 10
Left = 126
Top = 155
Width = 64
Height = 14
Caption = 'Small Picture:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object L1: TEdit
Tag = 1
Left = 6
Top = 20
Width = 257
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 0
Text = 'L1'
end
object L2: TLookup
Tag = 2
Left = 70
Top = 54
Width = 193
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 1
Text = 'L2'
Source = 'list1.dbf'
end
object L3: TEdit
Tag = 3
Left = 70
Top = 88
Width = 193
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 2
Text = 'L3'
end
object L4: TEdit
Tag = 4
Left = 6
Top = 129
Width = 115
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 3
Text = 'L4'
end
object L5: TLookup
Tag = 5
Left = 126
Top = 129
Width = 137
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 4
Text = 'L5'
Source = 'list2.dbf'
end
object L6: TDateEdit
Tag = 6
Left = 6
Top = 169
Width = 115
Height = 24
Hint = 'Enter Date Here'
DateFormat = 'mm/dd/yyyy'
Date = '__/__/____'
MaxLength = 10
TabOrder = 5
end
object L7: TEdit
Tag = 7
Left = 6
Top = 209
Width = 115
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 6
Text = 'L7'
end
object L8: TCurrencyEdit
Tag = 8
Left = 6
Top = 249
Width = 115
Height = 24
Hint = 'Enter Number Here'
AutoSelect = False
DisplayFormat = ',0.00'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object L9: TCurrencyEdit
Tag = 9
Left = 6
Top = 289
Width = 115
Height = 24
Hint = 'Enter Number Here'
AutoSelect = False
DisplayFormat = ',0.00'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object L10: TBmpControl
Tag = 10
Left = 126
Top = 169
Width = 138
Height = 145
Hint = 'Right Mouse Click Displays Menu'
Caption = 'L10'
TabOrder = 9
ShowButtons = False
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page 2'
object PgL2: TPanel
Tag = 1
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
object Label21: TLabel
Tag = 11
Left = 6
Top = 17
Width = 59
Height = 14
Caption = 'Paper Color:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Tag = 12
Left = 6
Top = 48
Width = 55
Height = 14
Caption = 'Watermark:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Tag = 13
Left = 6
Top = 79
Width = 33
Height = 14
Caption = 'Errors:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Tag = 14
Left = 6
Top = 110
Width = 47
Height = 14
Caption = 'Comment:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Tag = 15
Left = 6
Top = 141
Width = 27
Height = 14
Caption = 'Type:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Tag = 16
Left = 6
Top = 172
Width = 36
Height = 14
Caption = 'Format:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Tag = 17
Left = 6
Top = 203
Width = 31
Height = 14
Caption = 'Paper:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Tag = 18
Left = 6
Top = 234
Width = 25
Height = 14
Caption = 'Gum:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Tag = 19
Left = 6
Top = 265
Width = 61
Height = 14
Caption = 'Cancellation:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label30: TLabel
Tag = 20
Left = 6
Top = 297
Width = 56
Height = 14
Caption = 'Perforation:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object L11: TEdit
Tag = 11
Left = 73
Top = 12
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 0
Text = 'L11'
end
object L12: TEdit
Tag = 12
Left = 73
Top = 43
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 1
Text = 'L12'
end
object L13: TEdit
Tag = 13
Left = 73
Top = 74
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 2
Text = 'L13'
end
object L14: TEdit
Tag = 14
Left = 73
Top = 105
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 3
Text = 'L14'
end
object L15: TLookup
Tag = 15
Left = 73
Top = 136
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 4
Text = 'L15'
Source = 'list3.dbf'
end
object L16: TLookup
Tag = 16
Left = 73
Top = 167
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 5
Text = 'L16'
Source = 'list4.dbf'
end
object L17: TLookup
Tag = 17
Left = 73
Top = 198
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 6
Text = 'L17'
Source = 'list5.dbf'
end
object L18: TLookup
Tag = 18
Left = 73
Top = 229
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 7
Text = 'L18'
Source = 'list6.dbf'
end
object L19: TLookup
Tag = 19
Left = 73
Top = 260
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 8
Text = 'L19'
Source = 'list7.dbf'
end
object L20: TLookup
Tag = 20
Left = 73
Top = 292
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 9
Text = 'L20'
Source = 'list8.dbf'
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page 3'
object PgL3: TPanel
Tag = 2
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
object TLabel
Left = 8
Top = 192
Width = 4
Height = 16
end
object Label41: TLabel
Tag = 21
Left = 6
Top = 6
Width = 31
Height = 14
Caption = 'Notes:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Tag = 22
Left = 6
Top = 196
Width = 58
Height = 14
Caption = 'Attachment:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Tag = 23
Left = 138
Top = 196
Width = 48
Height = 14
Caption = 'Custom 1:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label44: TLabel
Tag = 24
Left = 6
Top = 236
Width = 48
Height = 14
Caption = 'Custom 2:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label45: TLabel
Tag = 25
Left = 138
Top = 236
Width = 48
Height = 14
Caption = 'Custom 3:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Tag = 26
Left = 6
Top = 276
Width = 48
Height = 14
Caption = 'Custom 4:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label47: TLabel
Tag = 27
Left = 138
Top = 276
Width = 48
Height = 14
Caption = 'Custom 5:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object L21: TMemo
Tag = 21
Left = 6
Top = 20
Width = 257
Height = 173
Hint = 'Enter Text Here'
Lines.Strings = (
'Memo1')
ScrollBars = ssVertical
TabOrder = 0
end
object L22: TMultiMediaEdit
Tag = 22
Left = 6
Top = 210
Width = 126
Height = 24
Hint = 'Attachment'
TabOrder = 1
end
object L23: TEdit
Tag = 23
Left = 138
Top = 210
Width = 126
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 2
Text = 'L23'
end
object L24: TLookup
Tag = 24
Left = 6
Top = 250
Width = 126
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 3
Text = 'L24'
Source = 'list9.dbf'
end
object L25: TLookup
Tag = 25
Left = 138
Top = 250
Width = 126
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 4
Text = 'L25'
Source = 'list10.dbf'
end
object L26: TDateEdit
Tag = 26
Left = 6
Top = 290
Width = 126
Height = 24
Hint = 'Enter Date Here'
DateFormat = 'mm/dd/yyyy'
Date = '__/__/____'
MaxLength = 10
TabOrder = 5
end
object L27: TCurrencyEdit
Tag = 27
Left = 138
Top = 290
Width = 126
Height = 24
Hint = 'Enter Number Here'
AutoSelect = False
DisplayFormat = ',0.00'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 6
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page 4'
object PgL4: TPanel
Tag = 2
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
object TLabel
Left = 8
Top = 192
Width = 4
Height = 16
end
object Label55: TLabel
Tag = 28
Left = 6
Top = 6
Width = 36
Height = 14
Caption = 'Picture:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object L28: TBmpControl
Tag = 28
Left = 6
Top = 18
Width = 257
Height = 301
Hint = 'Right Mouse Click Displays Menu'
Caption = 'L28'
TabOrder = 0
ShowButtons = True
end
end
end
end
object Panel1: TPanel
Left = 0
Top = 340
Width = 272
Height = 30
Align = alBottom
BevelInner = bvLowered
ParentColor = True
TabOrder = 1
object PgL_Lbl: TLabel
Tag = -1
Left = 2
Top = 11
Width = 38
Height = 14
AutoSize = False
Caption = '999999'
Color = clYellow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object B_First: TBitBtn
Left = 41
Top = 3
Width = 24
Height = 23
Hint = 'GoTo First Page [Ctrl+Home]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = B_FirstClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
end
object B_PgUp: TBitBtn
Left = 64
Top = 3
Width = 24
Height = 23
Hint = 'GoTo Previous Page [Ctrl+PgUp]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = B_PgUpClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
end
object B_LUndo: TBitBtn
Left = 197
Top = 3
Width = 24
Height = 23
Hint = 'Undo Changes To Left Record [Ctrl+U]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabStop = False
OnClick = L_UndoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
NumGlyphs = 2
end
object B_LPaste: TBitBtn
Left = 151
Top = 3
Width = 24
Height = 23
Hint = 'Paste From Copy Buffer To Left Record [Ctrl+P]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
TabStop = False
OnClick = B_LPasteClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
NumGlyphs = 2
end
object B_LCopy: TBitBtn
Left = 174
Top = 3
Width = 24
Height = 23
Hint = 'Copy Left Record To Copy Buffer [Ctrl+O]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabStop = False
OnClick = B_LCopyClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object B_LDelete: TBitBtn
Left = 220
Top = 3
Width = 24
Height = 23
Hint = 'Delete Left Record [Ctrl+Delete]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
TabStop = False
OnClick = B_LDeleteClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F33333333330000033333333333777773333330000}
NumGlyphs = 2
end
object B_LPrint: TBitBtn
Left = 243
Top = 3
Width = 24
Height = 23
Hint = 'Print Left Record [Ctrl+R]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
TabStop = False
OnClick = B_LPrintClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF77333333333000000333333333377777733333330000}
NumGlyphs = 2
end
end
object TabSet2: TTabSet
Left = 0
Top = 370
Width = 272
Height = 20
Hint = 'Select Part of the Record [Ctrl+#]'
Align = alBottom
BackgroundColor = clSilver
DitherBackground = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Tabs.Strings = (
'Part 1'
'Part 2'
'Part 3'
'Part 4')
TabIndex = 0
OnClick = TabSet2Click
end
object LStatus: TPanel
Left = 0
Top = 0
Width = 272
Height = 14
Align = alTop
BevelInner = bvLowered
Caption = 'Read/Write Access'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 3
end
end
object PgRight: TPanel
Left = 304
Top = 0
Width = 272
Height = 390
BevelOuter = bvNone
Color = clSilver
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 1
object Notebook2: TNotebook
Left = 0
Top = 14
Width = 272
Height = 326
Align = alClient
TabOrder = 0
object TPage
Left = 0
Top = 0
Caption = 'Page 1'
object PgR1: TPanel
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Ctl3D = True
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 0
object Label8: TLabel
Tag = 1
Left = 6
Top = 6
Width = 90
Height = 14
Caption = 'Stamp Description:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Tag = 2
Left = 6
Top = 59
Width = 41
Height = 14
Caption = 'Country:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Tag = 3
Left = 6
Top = 93
Width = 54
Height = 14
Caption = 'Short Note:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Tag = 4
Left = 6
Top = 115
Width = 48
Height = 14
Caption = 'Catalog #:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Tag = 5
Left = 126
Top = 115
Width = 47
Height = 14
Caption = 'Condition:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Tag = 6
Left = 6
Top = 155
Width = 60
Height = 14
Caption = 'Date Issued:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Tag = 7
Left = 6
Top = 195
Width = 58
Height = 15
Caption = 'Face Value:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Tag = 8
Left = 6
Top = 235
Width = 25
Height = 14
Caption = 'Cost:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Tag = 9
Left = 6
Top = 275
Width = 66
Height = 14
Caption = 'Market Value:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Tag = 10
Left = 126
Top = 155
Width = 64
Height = 14
Caption = 'Small Picture:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object R1: TEdit
Tag = 1
Left = 6
Top = 20
Width = 257
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 0
Text = 'L1'
end
object R2: TLookup
Tag = 2
Left = 70
Top = 54
Width = 193
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 1
Text = 'L2'
Source = 'list1.dbf'
Twin = L2
end
object R3: TEdit
Tag = 3
Left = 70
Top = 88
Width = 193
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 2
Text = 'L3'
end
object R4: TEdit
Tag = 4
Left = 6
Top = 129
Width = 115
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 3
Text = 'L4'
end
object R5: TLookup
Tag = 5
Left = 126
Top = 129
Width = 137
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 4
Text = 'R5'
Source = 'list2.dbf'
Twin = L5
end
object R6: TDateEdit
Tag = 6
Left = 6
Top = 169
Width = 115
Height = 24
Hint = 'Enter Date Here'
DateFormat = 'mm/dd/yyyy'
Date = '__/__/____'
MaxLength = 10
TabOrder = 5
end
object R7: TEdit
Tag = 7
Left = 6
Top = 209
Width = 115
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 6
Text = 'L7'
end
object R8: TCurrencyEdit
Tag = 8
Left = 6
Top = 249
Width = 115
Height = 24
Hint = 'Enter Number Here'
AutoSelect = False
DisplayFormat = ',0.00'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object R9: TCurrencyEdit
Tag = 9
Left = 6
Top = 289
Width = 115
Height = 24
Hint = 'Enter Number Here'
AutoSelect = False
DisplayFormat = ',0.00'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object R10: TBmpControl
Tag = 10
Left = 126
Top = 169
Width = 138
Height = 145
Hint = 'Right Mouse Click Displays Menu'
Caption = 'L10'
TabOrder = 9
ShowButtons = False
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page 2'
object PgR2: TPanel
Tag = 1
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
object Label31: TLabel
Tag = 11
Left = 6
Top = 17
Width = 59
Height = 14
Caption = 'Paper Color:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Tag = 12
Left = 6
Top = 48
Width = 55
Height = 14
Caption = 'Watermark:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Tag = 13
Left = 6
Top = 79
Width = 33
Height = 14
Caption = 'Errors:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Tag = 14
Left = 6
Top = 110
Width = 47
Height = 14
Caption = 'Comment:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Tag = 15
Left = 6
Top = 141
Width = 27
Height = 14
Caption = 'Type:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label36: TLabel
Tag = 16
Left = 6
Top = 172
Width = 36
Height = 14
Caption = 'Format:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Tag = 17
Left = 6
Top = 203
Width = 31
Height = 14
Caption = 'Paper:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label38: TLabel
Tag = 18
Left = 6
Top = 234
Width = 25
Height = 14
Caption = 'Gum:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Tag = 19
Left = 6
Top = 265
Width = 61
Height = 14
Caption = 'Cancellation:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Tag = 20
Left = 6
Top = 297
Width = 56
Height = 14
Caption = 'Perforation:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object R11: TEdit
Tag = 11
Left = 73
Top = 12
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 0
Text = 'L11'
end
object R12: TEdit
Tag = 12
Left = 73
Top = 43
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 1
Text = 'L12'
end
object R13: TEdit
Tag = 13
Left = 73
Top = 74
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 2
Text = 'L13'
end
object R14: TEdit
Tag = 14
Left = 73
Top = 105
Width = 190
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 3
Text = 'L14'
end
object R15: TLookup
Tag = 15
Left = 73
Top = 136
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 4
Text = 'L15'
Source = 'list3.dbf'
Twin = L15
end
object R16: TLookup
Tag = 16
Left = 73
Top = 167
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 5
Text = 'L16'
Source = 'list4.dbf'
Twin = L16
end
object R17: TLookup
Tag = 17
Left = 73
Top = 198
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 6
Text = 'L17'
Source = 'list5.dbf'
Twin = L17
end
object R18: TLookup
Tag = 18
Left = 73
Top = 229
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 7
Text = 'L18'
Source = 'list6.dbf'
Twin = L18
end
object R19: TLookup
Tag = 19
Left = 73
Top = 260
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 8
Text = 'L19'
Source = 'list7.dbf'
Twin = L19
end
object R20: TLookup
Tag = 20
Left = 73
Top = 292
Width = 190
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 9
Text = 'L20'
Source = 'list8.dbf'
Twin = L20
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page 3'
object PgR3: TPanel
Tag = 2
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
object TLabel
Left = 8
Top = 192
Width = 4
Height = 16
end
object Label48: TLabel
Tag = 21
Left = 6
Top = 6
Width = 31
Height = 14
Caption = 'Notes:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label49: TLabel
Tag = 22
Left = 6
Top = 196
Width = 58
Height = 14
Caption = 'Attachment:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Tag = 23
Left = 138
Top = 196
Width = 48
Height = 14
Caption = 'Custom 1:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label51: TLabel
Tag = 24
Left = 6
Top = 236
Width = 48
Height = 14
Caption = 'Custom 2:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label52: TLabel
Tag = 25
Left = 138
Top = 236
Width = 48
Height = 14
Caption = 'Custom 3:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label53: TLabel
Tag = 26
Left = 6
Top = 276
Width = 48
Height = 14
Caption = 'Custom 4:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label54: TLabel
Tag = 27
Left = 138
Top = 276
Width = 48
Height = 14
Caption = 'Custom 5:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object R21: TMemo
Tag = 21
Left = 6
Top = 20
Width = 257
Height = 173
Hint = 'Enter Text Here'
Lines.Strings = (
'Memo1')
ScrollBars = ssVertical
TabOrder = 0
end
object R22: TMultiMediaEdit
Tag = 22
Left = 6
Top = 210
Width = 126
Height = 24
Hint = 'Attachment'
TabOrder = 1
end
object R23: TEdit
Tag = 23
Left = 138
Top = 210
Width = 126
Height = 24
Hint = 'Enter Text Here'
AutoSelect = False
TabOrder = 2
Text = 'L23'
end
object R24: TLookup
Tag = 24
Left = 6
Top = 250
Width = 126
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 3
Text = 'L24'
Source = 'list9.dbf'
Twin = L24
end
object R25: TLookup
Tag = 25
Left = 138
Top = 250
Width = 126
Height = 24
Hint = 'Click On The Down Arrow To See The Choices'
ItemHeight = 16
Sorted = True
TabOrder = 4
Text = 'L25'
Source = 'list10.dbf'
Twin = L25
end
object R26: TDateEdit
Tag = 26
Left = 6
Top = 290
Width = 126
Height = 24
Hint = 'Enter Date Here'
DateFormat = 'mm/dd/yyyy'
Date = '__/__/____'
MaxLength = 10
TabOrder = 5
end
object R27: TCurrencyEdit
Tag = 27
Left = 138
Top = 290
Width = 126
Height = 24
Hint = 'Enter Number Here'
AutoSelect = False
DisplayFormat = ',0.00'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ParentFont = False
TabOrder = 6
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Page 4'
object PgR4: TPanel
Tag = 2
Left = 0
Top = 0
Width = 272
Height = 326
Align = alClient
BevelInner = bvLowered
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
object TLabel
Left = 8
Top = 192
Width = 4
Height = 16
end
object Label56: TLabel
Tag = 28
Left = 6
Top = 6
Width = 36
Height = 14
Caption = 'Picture:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object R28: TBmpControl
Tag = 28
Left = 6
Top = 18
Width = 257
Height = 301
Hint = 'Right Mouse Click Displays Menu'
Caption = 'L28'
TabOrder = 0
ShowButtons = True
end
end
end
end
object TabSet3: TTabSet
Left = 0
Top = 370
Width = 272
Height = 20
Hint = 'Select Part of the Record [Alt+#]'
Align = alBottom
BackgroundColor = clSilver
DitherBackground = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Tabs.Strings = (
'Part 1'
'Part 2'
'Part 3'
'Part 4')
TabIndex = 0
OnClick = TabSet3Click
end
object Panel2: TPanel
Left = 0
Top = 340
Width = 272
Height = 30
Align = alBottom
BevelInner = bvLowered
ParentColor = True
TabOrder = 2
object PgR_Lbl: TLabel
Tag = -1
Left = 230
Top = 11
Width = 38
Height = 14
Alignment = taRightJustify
AutoSize = False
Caption = '999999'
Color = clYellow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object B_RPrint: TBitBtn
Left = 4
Top = 3
Width = 24
Height = 23
Hint = 'Print Right Record [Alt+R]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = False
OnClick = B_RPrintClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF77333333333000000333333333377777733333330000}
NumGlyphs = 2
end
object B_RDelete: TBitBtn
Left = 27
Top = 3
Width = 24
Height = 23
Hint = 'Delete Right Record [Alt+Delete]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
TabStop = False
OnClick = B_RDeleteClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F33333333330000033333333333777773333330000}
NumGlyphs = 2
end
object B_RCopy: TBitBtn
Left = 73
Top = 3
Width = 24
Height = 23
Hint = 'Copy Right Record To Copy Buffer [Alt+O]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabStop = False
OnClick = B_RCopyClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object B_RPaste: TBitBtn
Left = 96
Top = 3
Width = 24
Height = 23
Hint = 'Paste From Copy Buffer To Right Record [Alt+P]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabStop = False
OnClick = B_RPasteClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
NumGlyphs = 2
end
object B_RUndo: TBitBtn
Left = 50
Top = 3
Width = 24
Height = 23
Hint = 'Undo Changes To Right Record [Alt+U]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
TabStop = False
OnClick = B_RUndoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
NumGlyphs = 2
end
object B_PgDn: TBitBtn
Left = 182
Top = 3
Width = 24
Height = 23
Hint = 'GoTo Next Page [Ctrl+PgDn]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = B_PgDnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
Layout = blGlyphRight
NumGlyphs = 2
end
object B_Last: TBitBtn
Left = 205
Top = 3
Width = 24
Height = 23
Hint = 'GoTo Last Page [Ctrl+End]'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = B_LastClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
Layout = blGlyphRight
NumGlyphs = 2
end
end
object RStatus: TPanel
Left = 0
Top = 0
Width = 272
Height = 14
Align = alTop
BevelInner = bvLowered
Caption = 'Read/Write Access'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 3
end
end
object TabSet1: TTabSet
Left = 8
Top = 424
Width = 568
Height = 20
Hint = 'Click on Tabs to select Menu Bar'
BackgroundColor = clBlue
DitherBackground = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentShowHint = False
ShowHint = True
Tabs.Strings = (
'Standard'
'Advanced')
TabIndex = 0
OnClick = TabSet1Click
end
object Panel3: TPanel
Left = 9
Top = 391
Width = 567
Height = 34
BevelInner = bvLowered
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 2
object B_Search: TBitBtn
Left = 5
Top = 4
Width = 66
Height = 26
Hint = 'Find Text'
Caption = 'Find'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = B_SearchClick
Glyph.Data = {
36010000424D3601000000000000760000002800000012000000100000000100
040000000000C000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888078888888
88888800E111880007888888888888A21EE28000007888888888881181118801
10078888888888225A2288801100777777888811E111888801100000007888AA
5AAA88888010078880078811E11188888800788BB87078AA5AAA888888078888
8BB70800F00088888808888888B80822D22288888807B88888B8080000008888
8807BBB8888808222222888888007BBB888778AAAAAA8888888077BB88708888
8888888888880777700888000000888888888000078888000000}
end
object B_TOC: TBitBtn
Left = 431
Top = 4
Width = 63
Height = 26
Hint = 'Return to Table Of Contents'
Caption = 'TOC'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = B_TOCClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
C8807FF7777777777FF700000000000000007777777777777777333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
end
object B_New: TBitBtn
Left = 253
Top = 4
Width = 62
Height = 26
Hint = 'Add New Record'
Caption = 'New'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = B_NewClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object B_Exit: TBitBtn
Left = 504
Top = 4
Width = 57
Height = 26
Hint = 'Program Shutdown'
Caption = 'Exit'
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabStop = False
OnClick = B_ExitClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
end
object B_Help: TBitBtn
Left = 336
Top = 4
Width = 62
Height = 26
Hint = 'Display Help Window'
Caption = 'Help'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = HelpContents1Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF33333333333777773333330000}
NumGlyphs = 2
end
end
object MainMenu1: TMainMenu
Left = 499
Top = 424
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Caption = '&New Record'
OnClick = B_NewClick
end
object PrintRight1: TMenuItem
Caption = 'Print &Left Record'
OnClick = B_LPrintClick
end
object PrintRightRecord1: TMenuItem
Caption = 'Print &Right Record'
OnClick = B_RPrintClick
end
object TableOfContents1: TMenuItem
Caption = '&Table Of Contents'
OnClick = B_TOCClick
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = B_ExitClick
end
end
object Search1: TMenuItem
Caption = '&Search'
object Find1: TMenuItem
Caption = '&Find'
OnClick = B_SearchClick
end
end
object LeftPage1: TMenuItem
Caption = '&Move'
object First1: TMenuItem
Caption = '&First'
OnClick = B_FirstClick
end
object PageUp1: TMenuItem
Caption = 'Page&Up'
OnClick = B_PgUpClick
end
object PageDown1: TMenuItem
Caption = 'Page&Down'
OnClick = B_PgDnClick
end
object Last1: TMenuItem
Caption = '&Last'
OnClick = B_LastClick
end
end
object Help1: TMenuItem
Caption = '&Help'
object HelpContents1: TMenuItem
Caption = '&Help Contents'
OnClick = HelpContents1Click
end
end
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 464
Top = 424
object LeftRecord1: TMenuItem
Caption = 'Left Record:'
Enabled = False
end
object N1: TMenuItem
Caption = '-'
end
object ViewBuffer1: TMenuItem
Caption = '&View Copy Buffer'
object TMenuItem
end
end
object N4: TMenuItem
Caption = '-'
end
object Paste1: TMenuItem
Caption = '&Paste Record'
OnClick = B_LPasteClick
end
object Copy1: TMenuItem
Caption = 'C&opy Record'
OnClick = B_LCopyClick
end
object Undo1: TMenuItem
Caption = '&Undo Changes'
OnClick = L_UndoClick
end
object Delete1: TMenuItem
Caption = '&Delete Record'
OnClick = B_LDeleteClick
end
object Print1: TMenuItem
Caption = 'P&rint Record'
OnClick = B_LPrintClick
end
object N6: TMenuItem
Caption = '-'
end
object Help2: TMenuItem
Caption = '&Help'
OnClick = Help2Click
end
end
object PopupMenu2: TPopupMenu
OnPopup = PopupMenu2Popup
Left = 432
Top = 424
object RightRecord1: TMenuItem
Caption = 'Right Record :'
Enabled = False
end
object N2: TMenuItem
Caption = '-'
end
object ViewBuffer2: TMenuItem
Caption = '&View Copy Buffer'
object TMenuItem
end
end
object N3: TMenuItem
Caption = '-'
end
object Paste2: TMenuItem
Caption = '&Paste Record'
OnClick = B_RPasteClick
end
object Copy2: TMenuItem
Caption = 'C&opy Record'
OnClick = B_RCopyClick
end
object Undo2: TMenuItem
Caption = '&Undo Changes'
OnClick = B_RUndoClick
end
object Delete2: TMenuItem
Caption = '&Delete Record'
OnClick = B_RDeleteClick
end
object Print2: TMenuItem
Caption = 'P&rint Record'
OnClick = B_RPrintClick
end
object N5: TMenuItem
Caption = '-'
end
object Help3: TMenuItem
Caption = '&Help'
OnClick = Help2Click
end
end
end
